<script>on mouseUpglobal TheFont,FontSize,FontStyleset cursor to watchlock screenset textFont of field "Output Number" to TheFontset textSize of field "Output Number" to FontSizeset textStyle of field "Output Number" to FontStyleselect text of field "Output Number"if (name of menuItem 4 of menu "Edit") is "Copy Text" thendoMenu "Copy Text"TextDefaultsselect emptyelseplay "hey!"answer "Nothing to Copy"end ifselect emptyend mouseUp</script>
</part>
<part>
<id>96</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>53</left>
<top>219</top>
<right>87</right>
<bottom>255</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26020</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Paste</name>
<script>on mouseUpglobal TheFont,FontSize,FontStyle,CalcCardif (name of menuItem 5 of menu "Edit") is "Paste Text" thenset cursor to watchlock screenput line 1 of field "Input Number" into textHolderselect text of field "Input Number"doMenu "Paste Text"select emptyif line 1 of field "Input Number" is a number thenput textFont of line 1 of field "Input Number" into TheFontput textSize of line 1 of field "Input Number" into FontSizeput textStyle of line 1 of field "Input Number" into FontStyledo script of card CalcCardTextDefaultsselect text of field "Input Number"doMenu "12"doMenu "Chicago"doMenu "Plain"select emptyexit mouseUpelseplay "sorry"answer "Can only paste numbers (they must not include any text)"put textHolder into line 1 of field "Input Number"exit mouseUpend ifelseplay "uh oh!"answer "Nothing to Paste"end ifend mouseUp</script>
</part>
<part>
<id>99</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>10</top>
<right>207</right>
<bottom>50</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Change...</name>
<script>on mousedownglobal changein,leftFactor,CalcCardput the mouseV into Topput the mouseH into Leftget HPopUpMenu(field "TheUnits",changein,Top,Left)if item 1 of it is 0 and item 2 of it is 0then exit mousedownif item 1 of it is 0 thenput item 2 of it into changeinput line 1 of field changein into field "Input Units"put line 2 of field changein into leftFactorelseif item 1 of it is not 0 thenput item 1 of it into changeinput item 2 of it into SubPopUpput line 1 of field (((changein^2)*3)+SubPopUp) into field "Input Units"put line 2 of field (((changein^2)*3)+SubPopUp) into leftFactorend ifend ifdo script of card CalcCardend mousedown</script>
</part>
<part>
<id>100</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>16</left>
<top>98</top>
<right>208</right>
<bottom>138</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Into...</name>
<script>on mousedownglobal changeout,rightFactor,CalcCardput the mouseV into Topput the mouseH into Leftget HPopUpMenu(field "TheUnits",changeout,Top,Left)if item 1 of it is 0 and item 2 of it is 0then exit mousedownif item 1 of it is 0 thenput item 2 of it into changeoutput line 1 of field changeout into field "Output Units"put line 2 of field changeout into rightFactorelseif item 1 of it is not 0 thenput item 1 of it into changeoutput item 2 of it into SubPopUpput line 1 of field (((changeout^2)*3)+SubPopUp) into field "Output Units"put line 2 of field (((changeout^2)*3)+SubPopUp) into rightFactorend ifend ifdo script of card CalcCardend mousedown</script>
</part>
<part>
<id>103</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>85</left>
<top>150</top>
<right>99</right>
<bottom>168</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>extend</textStyle>
<textHeight>13</textHeight>
<name>accHolder</name>
<script></script>
</part>
<part>
<id>104</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>123</left>
<top>150</top>
<right>173</right>
<bottom>169</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>PlaceName</name>
<script></script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>30</left>
<top>143</top>
<right>198</right>
<bottom>176</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Accuracy</name>
<script>on mouseDownglobal Acc,CalcCardput the mouseV into Topput the mouseH into Leftget HPopUpMenu("0,1,2,3,4,5,6,7,8",Acc,Top,Left)if item 2 of it > 0 thenput item 2 of it into Accget the script of card CalcCardput line Acc of cd field "ThePlaces" of card 4 into line 8 of itset the script of card CalcCard to itdo script of card CalcCardend ifput Acc-1 into bg field "accHolder"if Acc = 2 then put "place" into field "PlaceName" else put "places" into field "PlaceName"end mouseDown</script>
</part>
<part>
<id>106</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>145</left>
<top>232</top>
<right>166</right>
<bottom>253</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>C</name>
<script>on mouseUpput empty into field "Input Number"put empty into field "Output Number"end mouseUp</script>
</part>
<part>
<id>107</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>117</left>
<top>232</top>
<right>138</right>
<bottom>253</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>T</name>
<script>on mouseUpglobal CalcCard, Accset cursor to busyput empty into field "LeftTable"put empty into field "RightTable"put empty into field "middle"put empty into whatput empty into newTableanswer "Create a conversion table for" && (bkgnd field "Input Units") && "to" && (bkgnd field "Output Units")¬&& ". Save this as a text file or print the table ?"¬with "Save" or "Print" or "Cancel"put it into whatif it is "Cancel" then exit mouseUprepeatask "Start conversion table at how many " & (bkgnd field "Input Units") & " ?"if the result is cancel then exit mouseUpif it is a number thenput it into startErexit repeatelse play "uh oh!"answer "Sorry," && it && "is not a valid number. Try again."end repeatrepeatask "End at how many " & (bkgnd field "Input Units") & " ?"if the result is cancel then exit mouseUpif it is a number thenput it into endErexit repeatelse play "uh oh!"answer "Sorry," && it && "is not a valid number. Try again."end repeatrepeatask "In steps of how many " & (bkgnd field "Input Units") & " ?"if the result is cancel then exit mouseUpif it is a number thenput it into stepsErexit repeatelse play "uh oh!"answer "Sorry," && it && "is not a valid number. Try again."end repeatanswer what && "a conversion table for" && (bkgnd field "Input Units") && "to" && (bkgnd field "Output Units")¬& ". From" && startEr && "to" && endEr && (bkgnd field "Input Units") & ". In steps of" && stepsEr && (bkgnd field "Input Units")¬& ". Result to an accuracy of" && Acc - 1 && "decimal places." with "Cancel" or "OK"if it is "OK" and what = "Save" thenlock screenset cursor to busyput 5 into Nput "Conversion table for" && line 1 of bkgnd field CardName & return into line 1 of newTableput return into line 2 of newTableput (line 1 of bkgnd field "Input Units") && "INTO" && (line 1 of bkgnd field "Output Units") & return into line 3 of newTableput return into line 4 of newTableset cursor to busyif startEr < endEr thenrepeat while startEr < (endEr + stepsEr)set cursor to busyput startEr into line 1 of field "Input Number"do script of card CalcCardput startEr & tab & "=" & tab & field "Output Number" & return into line N of newTableif startEr = endEr then exit repeatput startEr + stepsEr into startErput N + 1 into Nif startEr > endEr then put endEr into startErend repeatelserepeat while startEr > (endEr - stepsEr)set cursor to busyput startEr into line 1 of field "Input Number"do script of card CalcCardput startEr & tab & "=" & tab & field "Output Number" & return into line N of newTableif startEr = endEr then exit repeatput startEr - stepsEr into startErput N + 1 into Nif startEr < endEr then put endEr into startErend repeatend ifask file "Save conversion table as:" with bkgnd field CardNameif it is empty then exit mouseUpset cursor to busyput it into fileNameopen file fileNameset cursor to busywrite newTable to file fileNameset cursor to busyclose file fileNameanswer "Would you like to view the conversion table ?"¬with "No" or "Yes"if it is "Yes" thenput newTable into field "TableView"hide card pictshow field "TableView"else exit mouseUpelse if it is "OK" and what = "Print" thenlock screenset cursor to busyput 1 into Nset cursor to busyif startEr < endEr thenrepeat while startEr < (endEr + stepsEr)set cursor to busyput startEr into line 1 of field "Input Number"do script of card CalcCardput startEr into line N of field "LeftTable"put field "Output Number" into line N of field "RightTable"put "=" into line N of field "middle"if startEr = endEr then exit repeatput startEr + stepsEr into startErput N + 1 into Nif startEr > endEr then put endEr into startErend repeatelserepeat while startEr > (endEr - stepsEr)set cursor to busyput startEr into line 1 of field "Input Number"do script of card CalcCardput startEr into line N of field "LeftTable"put field "Output Number" into line N of field "RightTable"put "=" into line N of field "middle"if startEr = endEr then exit repeatput startEr - stepsEr into startErput N + 1 into Nif startEr < endEr then put endEr into startErend repeatend ifopen report printing with Template "Table"print this cardclose printingelse exit mouseUpend mouseUp</script>
</part>
<part>
<id>112</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>14</left>
<top>229</top>
<right>76</right>
<bottom>256</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>LeftTable</name>
<script></script>
</part>
<part>
<id>113</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>144</left>
<top>228</top>
<right>205</right>
<bottom>255</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>RightTable</name>
<script></script>
</part>
<part>
<id>114</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>86</left>
<top>227</top>
<right>109</right>
<bottom>256</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>middle</name>
<script></script>
</part>
<part>
<id>115</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>224</right>
<bottom>256</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>TableView</name>
<script>on mouseUphide meput empty into meset scroll of me to 0show card pictend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>104</id>
<text>places</text>
</content>
<name>Main</name>
<script>on openStackTextDefaultsend openStackon openCardglobal chosen,leftFactor,rightFactor,changein,changeout,Acc,CalcCardset cursor to watchput short name of this cd into field "CardName"put item 1 of field "Memory" into leftFactorput item 2 of field "Memory" into rightFactorput item 3 of field "Memory" into changeinput item 4 of field "Memory" into changeoutput item 5 of field "Memory" into Accput Acc-1 into bg field "accHolder"if Acc = 2 then put "place" into field "PlaceName" else put "places" into field "PlaceName"put number of this card into chosenif chosen = 7 thenput 7 into CalcCardelse if chosen = 23 thenput 23 into CalcCardelse if chosen = 26 thenput 26 into CalcCardelse put 5 into CalcCardget the script of card CalcCardput line Acc of cd field "ThePlaces" of card 4 into line 8 of itset the script of card CalcCard to itend openCardon TextDefaultsset textFont of field "Output Number" to Chicagoset textSize of field "Output Number" to 12set textStyle of field "Output Number" to plainselect emptyend TextDefaultson keyDown whichKey ---------- REMOVE "on" FOR NORMAL KEYBOARD INPUTglobal CalcCardget charToNum of whichKeyif it = 8 thendelete last char of line 1 of field "Input Number"do script of card CalcCardexit keyDownelse if it = 27 thenput empty into field "Input Number"put empty into field "Output Number"exit keyDownelse if it = 28 thengo to previous card of this backgroundexit keyDownelse if it = 29 thengo to next card of this backgroundexit keyDownelse if it = 45 and line 1 of field "Input Number" is empty thenput numToChar (it) after line 1 of bkgnd field "Input Number"exit keyDownelse if it = 46 and field "Input Number" contains "." thenexit keyDownelse if it = 46 thenput numToChar (it) after line 1 of field "Input Number"end ifrepeat with count = 48 to 57if it = count thenput numToChar (it) after line 1 of field "Input Number"do script of card CalcCardexit repeatend ifend repeatend keyDownon commandKeyDown someKey ------- REMOVE "on" FOR NORMAL KEYBOARD INPUTif someKey is "v"then send mouseUp to bkgnd button "Paste"else if someKey is "c"then send mouseUp to bkgnd button "Copy"else if someKey is "m"thenplay "hey!"answer "Message Box not available while using conversion cards"play "sorry"else pass commandKeyDownend commandKeyDownon closeCardglobal leftFactor,rightFactor,changein,changeout,Acchide field "TableView"put leftFactor into item 1 of field "Memory"put rightFactor into item 2 of field "Memory"put changein into item 3 of field "Memory"put changeout into item 4 of field "Memory"put Acc into item 5 of field "Memory"end closeCardon Overflowplay "sorry"Answer "Result TOO LARGE to display, change the units on either side of the conversion or change the Accuracy"put "Too many, " into line 1 of field "Output Number"end Overflow</script>
